100 REM  TEXT IN DREIECKFORM AUSGEBEN
110 DO
120 :  PRINT "BITTE TEXT EINGEBEN" : INPUT X$ : PRINT
130 :  N=1 : Q=1
140 :  DO WHILE N>0
150 :     PRINT LEFT$(X$,N)
160 :     N=N+Q
170 :     IF N=LEN(X$) THEN Q=-1
180 :  LOOP
190 :  PRINT
200 :  DO
210 :     INPUT "NOCHMAL (J/N) ";A$
220 :     EXIT IF A$="J" OR A$="N"
230 :     PRINT "FALSCHE EINGABE"
240 :  LOOP
250 LOOP UNTIL A$="N"
260 END